Urabon Golden Age Girl 2/Urabon Golden Age Girl 2.iso/mac/裏ガール２data/ATUI.DIR/00002_ATUI01.ls

Text File | 1995-01-01 | 380 b | 17 lines

on mouseUp
  global frag, myv, myho, myw, myhi, myl, myt
  if frag = 0 then
    set myv to the mouseV
    set myho to the mouseH
    set myl to the left of sprite 11
    set myr to the right of sprite 11
    set myw to myr - myl
    set myt to the top of sprite 11
    set myb to the bottom of sprite 11
    set myhi to myb - myt
    enlargement()
  else
    small()
  end if
end